home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / Dev / Obrn-A_1.6_lib.lha / oberon-a / source3.lha / source / EAGUI / EAGUI_Macros.mod < prev    next >
Text File  |  1995-06-29  |  12KB  |  373 lines
  1. (*************************************************************************
  2.  
  3.      $RCSfile: EAGUI_Macros.mod $
  4.   Description: Macros for EAGUI.library
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 1.2 $
  8.       $Author: fjc $
  9.         $Date: 1995/06/04 23:19:47 $
  10.  
  11.   Oberon-A Interface Copyright © 1995, Frank Copeland.
  12.   This file is part of the Oberon-A Library.
  13.   See Oberon-A.doc for conditions of use and distribution.
  14.  
  15. *************************************************************************)
  16.  
  17. <* STANDARD- *>
  18. <*$ LongVars+ *>
  19.  
  20. MODULE EAGUI_Macros;
  21.  
  22. IMPORT
  23.   SYS := SYSTEM, e := Exec, u := Utility, gfx := Graphics, gt := GadTools,
  24.   ea := EAGUI;
  25.  
  26. <*$ ReturnChk- StackChk- *>
  27.  
  28. (*----------------------------------------------------------------------*)
  29.  
  30. PROCEDURE xHGroup ((* tags [8] : u.TagListPtr *)) : ea.OPTR;
  31. BEGIN (* xHGroup *)
  32.   SYS.SETREG ( 0,
  33.     ea.NewObject ( ea.TYPE_HGROUP,
  34.                    ea.StandardMethod, ea.SM_MINSIZE + ea.SM_BORDER,
  35.                    u.more,            SYS.REG (8), (* tags *)
  36.                    u.end ) )
  37. END xHGroup;
  38.  
  39. PROCEDURE [4] HGroup* ["EAGUI_Macros_xHGroup"]
  40.   ( tags [8].. : u.Tag )
  41.   : ea.OPTR;
  42.  
  43. PROCEDURE [4] HGroupA* ["EAGUI_Macros_xHGroup"]
  44.   ( tags [8] : u.TagListPtr )
  45.   : ea.OPTR;
  46.  
  47. (*----------------------------------------------------------------------*)
  48.  
  49. PROCEDURE xVGroup ((* tags [8] : u.TagListPtr *)) : ea.OPTR;
  50. BEGIN (* xVGroup *)
  51.   SYS.SETREG ( 0,
  52.     ea.NewObject ( ea.TYPE_VGROUP,
  53.                    ea.StandardMethod, ea.SM_MINSIZE + ea.SM_BORDER,
  54.                    u.more,            SYS.REG (8), (* tags *)
  55.                    u.end ) )
  56. END xVGroup;
  57.  
  58. PROCEDURE [4] VGroup* ["EAGUI_Macros_xVGroup"]
  59.   ( tags [8].. : u.Tag )
  60.   : ea.OPTR;
  61.  
  62. PROCEDURE [4] VGroupA* ["EAGUI_Macros_xVGroup"]
  63.   ( tags [8] : u.TagListPtr )
  64.   : ea.OPTR;
  65.  
  66. (*----------------------------------------------------------------------*)
  67.  
  68. PROCEDURE xGTString
  69.   ((* text [8] : e.LSTRPTR; tags [9] : u.TagListPtr *))
  70.   : ea.OPTR;
  71. BEGIN (* xGTString *)
  72.   SYS.SETREG ( 0,
  73.     ea.NewObject ( ea.TYPE_GTGADGET,
  74.                    ea.StandardMethod, ea.SM_MINSIZE + ea.SM_BORDER,
  75.                    ea.GTType,         gt.stringKind,
  76.                    ea.GTFlags,        {gt.placeTextLeft},
  77.                    ea.GTText,         SYS.REG (8), (* text *)
  78.                    u.more,            SYS.REG (9), (* tags *)
  79.                    u.end ) )
  80. END xGTString;
  81.  
  82. PROCEDURE [4] GTString* ["EAGUI_Macros_xGTString"]
  83.   ( text [8]   : e.LSTRPTR;
  84.     tags [9].. : u.Tag )
  85.   : ea.OPTR;
  86.  
  87. PROCEDURE [4] GTStringA* ["EAGUI_Macros_xGTString"]
  88.   ( text [8] : e.LSTRPTR;
  89.     tags [9] : u.TagListPtr )
  90.   : ea.OPTR;
  91.  
  92. (*----------------------------------------------------------------------*)
  93.  
  94. PROCEDURE xGTText
  95.   ((* text [8] : e.LSTRPTR; tags [9] : u.TagListPtr *))
  96.   : ea.OPTR;
  97. BEGIN (* xGTText *)
  98.   SYS.SETREG ( 0,
  99.     ea.NewObject ( ea.TYPE_GTGADGET,
  100.                    ea.StandardMethod, ea.SM_MINSIZE + ea.SM_BORDER,
  101.                    ea.GTType,         gt.textKind,
  102.                    ea.GTFlags,        {gt.placeTextLeft},
  103.                    ea.GTText,         SYS.REG (8), (* text *)
  104.                    u.more,            SYS.REG (9), (* tags *)
  105.                    u.end ) )
  106. END xGTText;
  107.  
  108. PROCEDURE [4] GTText* ["EAGUI_Macros_xGTText"]
  109.   ( text [8]   : e.LSTRPTR;
  110.     tags [9].. : u.Tag )
  111.   : ea.OPTR;
  112.  
  113. PROCEDURE [4] GTTextA* ["EAGUI_Macros_xGTText"]
  114.   ( text [8] : e.LSTRPTR;
  115.     tags [9] : u.TagListPtr )
  116.   : ea.OPTR;
  117.  
  118. (*----------------------------------------------------------------------*)
  119.  
  120. PROCEDURE xGTButton
  121.   ((* text [8] : e.LSTRPTR; tags [9] : u.TagListPtr *))
  122.   : ea.OPTR;
  123. BEGIN (* xGTButton *)
  124.   SYS.SETREG ( 0,
  125.     ea.NewObject ( ea.TYPE_GTGADGET,
  126.                    ea.StandardMethod, ea.SM_MINSIZE + ea.SM_BORDER,
  127.                    ea.GTType,         gt.buttonKind,
  128.                    ea.GTFlags,        {gt.placeTextIn},
  129.                    ea.GTText,         SYS.REG (8), (* text *)
  130.                    u.more,            SYS.REG (9), (* tags *)
  131.                    u.end ) )
  132. END xGTButton;
  133.  
  134. PROCEDURE [4] GTButton* ["EAGUI_Macros_xGTButton"]
  135.   ( text [8]   : e.LSTRPTR;
  136.     tags [9].. : u.Tag )
  137.   : ea.OPTR;
  138.  
  139. PROCEDURE [4] GTButtonA* ["EAGUI_Macros_xGTButton"]
  140.   ( text [8] : e.LSTRPTR;
  141.     tags [9] : u.TagListPtr )
  142.   : ea.OPTR;
  143.  
  144. (*----------------------------------------------------------------------*)
  145.  
  146. PROCEDURE xGTScroller ((* tags [8] : u.TagListPtr *)) : ea.OPTR;
  147. BEGIN (* xGTScroller *)
  148.   SYS.SETREG ( 0,
  149.     ea.NewObject ( ea.TYPE_GTGADGET,
  150.                    ea.StandardMethod, ea.SM_MINSIZE + ea.SM_BORDER,
  151.                    ea.GTType,         gt.scrollerKind,
  152.                    u.more,            SYS.REG (8), (* tags *)
  153.                    u.end ) )
  154. END xGTScroller;
  155.  
  156. PROCEDURE [4] GTScroller* ["EAGUI_Macros_xGTScroller"]
  157.   ( tags [8].. : u.Tag )
  158.   : ea.OPTR;
  159.  
  160. PROCEDURE [4] GTScrollerA* ["EAGUI_Macros_xGTScroller"]
  161.   ( tags [8] : u.TagListPtr )
  162.   : ea.OPTR;
  163.  
  164. (*----------------------------------------------------------------------*)
  165.  
  166. PROCEDURE xGTSlider ((* tags [8] : u.TagListPtr *)) : ea.OPTR;
  167. BEGIN (* xGTSlider *)
  168.   SYS.SETREG ( 0,
  169.     ea.NewObject ( ea.TYPE_GTGADGET,
  170.                    ea.StandardMethod, ea.SM_MINSIZE + ea.SM_BORDER,
  171.                    ea.GTType,         gt.sliderKind,
  172.                    u.more,            SYS.REG (8), (* tags *)
  173.                    u.end ) )
  174. END xGTSlider;
  175.  
  176. PROCEDURE [4] GTSlider* ["EAGUI_Macros_xGTSlider"]
  177.   ( tags [8].. : u.Tag )
  178.   : ea.OPTR;
  179.  
  180. PROCEDURE [4] GTSliderA* ["EAGUI_Macros_xGTSlider"]
  181.   ( tags [8] : u.TagListPtr )
  182.   : ea.OPTR;
  183.  
  184. (*----------------------------------------------------------------------*)
  185.  
  186. PROCEDURE xGTCheckBox
  187.   ((* text [8] : e.LSTRPTR; tags [9] : u.TagListPtr *))
  188.   : ea.OPTR;
  189. BEGIN (* xGTCheckBox *)
  190.   SYS.SETREG ( 0,
  191.     ea.NewObject ( ea.TYPE_GTGADGET,
  192.                    ea.StandardMethod, ea.SM_MINSIZE + ea.SM_BORDER,
  193.                    ea.GTType,         gt.checkBoxKind,
  194.                    ea.GTFlags,        {gt.placeTextLeft},
  195.                    ea.GTText,         SYS.REG (8), (* text *)
  196.                    u.more,            SYS.REG (9), (* tags *)
  197.                    u.end ) )
  198. END xGTCheckBox;
  199.  
  200. PROCEDURE [4] GTCheckBox* ["EAGUI_Macros_xGTCheckBox"]
  201.   ( text [8]   : e.LSTRPTR;
  202.     tags [9].. : u.Tag )
  203.   : ea.OPTR;
  204.  
  205. PROCEDURE [4] GTCheckBoxA* ["EAGUI_Macros_xGTCheckBox"]
  206.   ( text [8] : e.LSTRPTR;
  207.     tags [9] : u.TagListPtr )
  208.   : ea.OPTR;
  209.  
  210. (*----------------------------------------------------------------------*)
  211.  
  212. PROCEDURE xGTInteger
  213.   ((* text [8] : e.LSTRPTR; tags [9] : u.TagListPtr *))
  214.   : ea.OPTR;
  215. BEGIN (* xGTInteger *)
  216.   SYS.SETREG ( 0,
  217.     ea.NewObject ( ea.TYPE_GTGADGET,
  218.                    ea.StandardMethod, ea.SM_MINSIZE + ea.SM_BORDER,
  219.                    ea.GTType,         gt.integerKind,
  220.                    ea.GTFlags,        {gt.placeTextLeft},
  221.                    ea.GTText,         SYS.REG (8), (* text *)
  222.                    u.more,            SYS.REG (9), (* tags *)
  223.                    u.end ) )
  224. END xGTInteger;
  225.  
  226. PROCEDURE [4] GTInteger* ["EAGUI_Macros_xGTInteger"]
  227.   ( text [8]   : e.LSTRPTR;
  228.     tags [9].. : u.Tag )
  229.   : ea.OPTR;
  230.  
  231. PROCEDURE [4] GTIntegerA* ["EAGUI_Macros_xGTInteger"]
  232.   ( text [8] : e.LSTRPTR;
  233.     tags [9] : u.TagListPtr )
  234.   : ea.OPTR;
  235.  
  236. (*----------------------------------------------------------------------*)
  237.  
  238. PROCEDURE xGTNumber
  239.   ((* text [8] : e.LSTRPTR; tags [9] : u.TagListPtr *))
  240.   : ea.OPTR;
  241. BEGIN (* xGTNumber *)
  242.   SYS.SETREG ( 0,
  243.     ea.NewObject ( ea.TYPE_GTGADGET,
  244.                    ea.StandardMethod, ea.SM_MINSIZE + ea.SM_BORDER,
  245.                    ea.GTType,         gt.numberKind,
  246.                    ea.GTFlags,        {gt.placeTextLeft},
  247.                    ea.GTText,         SYS.REG (8), (* text *)
  248.                    u.more,            SYS.REG (9), (* tags *)
  249.                    u.end ) )
  250. END xGTNumber;
  251.  
  252. PROCEDURE [4] GTNumber* ["EAGUI_Macros_xGTNumber"]
  253.   ( text [8]   : e.LSTRPTR;
  254.     tags [9].. : u.Tag )
  255.   : ea.OPTR;
  256.  
  257. PROCEDURE [4] GTNumberA* ["EAGUI_Macros_xGTNumber"]
  258.   ( text [8] : e.LSTRPTR;
  259.     tags [9] : u.TagListPtr )
  260.   : ea.OPTR;
  261.  
  262. (*----------------------------------------------------------------------*)
  263.  
  264. PROCEDURE xGTListView
  265.   ((* text [8] : e.LSTRPTR; tags [9] : u.TagListPtr *))
  266.   : ea.OPTR;
  267. BEGIN (* xGTListView *)
  268.   SYS.SETREG ( 0,
  269.     ea.NewObject ( ea.TYPE_GTGADGET,
  270.                    ea.StandardMethod, ea.SM_MINSIZE + ea.SM_BORDER,
  271.                    ea.GTType,         gt.listViewKind,
  272.                    ea.GTFlags,        {gt.placeTextLeft},
  273.                    ea.GTText,         SYS.REG (8), (* text *)
  274.                    u.more,            SYS.REG (9), (* tags *)
  275.                    u.end ) )
  276. END xGTListView;
  277.  
  278. PROCEDURE [4] GTListView* ["EAGUI_Macros_xGTListView"]
  279.   ( text [8]   : e.LSTRPTR;
  280.     tags [9].. : u.Tag )
  281.   : ea.OPTR;
  282.  
  283. PROCEDURE [4] GTListViewA* ["EAGUI_Macros_xGTListView"]
  284.   ( text [8] : e.LSTRPTR;
  285.     tags [9] : u.TagListPtr )
  286.   : ea.OPTR;
  287.  
  288. (*----------------------------------------------------------------------*)
  289.  
  290. PROCEDURE xGTMX ((* tags [8] : u.TagListPtr *)) : ea.OPTR;
  291. BEGIN (* xGTMX *)
  292.   SYS.SETREG ( 0,
  293.     ea.NewObject ( ea.TYPE_GTGADGET,
  294.                    ea.StandardMethod, ea.SM_MINSIZE + ea.SM_BORDER,
  295.                    ea.GTType,         gt.mxKind,
  296.                    u.more,            SYS.REG (8), (* tags *)
  297.                    u.end ) )
  298. END xGTMX;
  299.  
  300. PROCEDURE [4] GTMX* ["EAGUI_Macros_xGTMX"]
  301.   ( tags [8].. : u.Tag )
  302.   : ea.OPTR;
  303.  
  304. PROCEDURE [4] GTMXA* ["EAGUI_Macros_xGTMX"]
  305.   ( tags [8] : u.TagListPtr )
  306.   : ea.OPTR;
  307.  
  308. (*----------------------------------------------------------------------*)
  309.  
  310. PROCEDURE xGTCycle ((* tags [8] : u.TagListPtr *)) : ea.OPTR;
  311. BEGIN (* xGTCycle *)
  312.   SYS.SETREG ( 0,
  313.     ea.NewObject ( ea.TYPE_GTGADGET,
  314.                    ea.StandardMethod, ea.SM_MINSIZE + ea.SM_BORDER,
  315.                    ea.GTType,         gt.cycleKind,
  316.                    u.more,            SYS.REG (8), (* tags *)
  317.                    u.end ) )
  318. END xGTCycle;
  319.  
  320. PROCEDURE [4] GTCycle* ["EAGUI_Macros_xGTCycle"]
  321.   ( tags [8].. : u.Tag )
  322.   : ea.OPTR;
  323.  
  324. PROCEDURE [4] GTCycleA* ["EAGUI_Macros_xGTCycle"]
  325.   ( tags [8] : u.TagListPtr )
  326.   : ea.OPTR;
  327.  
  328. (*----------------------------------------------------------------------*)
  329.  
  330. PROCEDURE xGTPalette ((* tags [8] : u.TagListPtr *)) : ea.OPTR;
  331. BEGIN (* xGTPalette *)
  332.   SYS.SETREG ( 0,
  333.     ea.NewObject ( ea.TYPE_GTGADGET,
  334.                    ea.StandardMethod, ea.SM_MINSIZE + ea.SM_BORDER,
  335.                    ea.GTType,         gt.paletteKind,
  336.                    u.more,            SYS.REG (8), (* tags *)
  337.                    u.end ) )
  338. END xGTPalette;
  339.  
  340. PROCEDURE [4] GTPalette* ["EAGUI_Macros_xGTPalette"]
  341.   ( tags [8].. : u.Tag )
  342.   : ea.OPTR;
  343.  
  344. PROCEDURE [4] GTPaletteA* ["EAGUI_Macros_xGTPalette"]
  345.   ( tags [8] : u.TagListPtr )
  346.   : ea.OPTR;
  347.  
  348. (*----------------------------------------------------------------------*)
  349.  
  350. PROCEDURE xEmptyBox
  351.   ((* weight [1] : LONGINT; tags [8] : u.TagListPtr *))
  352.   : ea.OPTR;
  353. BEGIN (* xEmptyBox *)
  354.   SYS.SETREG ( 0,
  355.     ea.NewObject ( ea.TYPE_GTGADGET,
  356.                    ea.StandardMethod, ea.SM_MINSIZE + ea.SM_BORDER,
  357.                    ea.Weight,         SYS.REG (1), (* weight *)
  358.                    u.more,            SYS.REG (8), (* tags *)
  359.                    u.end ) )
  360. END xEmptyBox;
  361.  
  362. PROCEDURE [4] EmptyBox* ["EAGUI_Macros_xEmptyBox"]
  363.   ( weight [1]   : LONGINT;
  364.     tags   [8].. : u.Tag )
  365.   : ea.OPTR;
  366.  
  367. PROCEDURE [4] EmptyBoxA* ["EAGUI_Macros_xEmptyBox"]
  368.   ( weight [1] : LONGINT;
  369.     tags   [8] : u.TagListPtr )
  370.   : ea.OPTR;
  371.  
  372. END EAGUI_Macros.
  373.